home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 8 / FM Towns Free Software Collection 8.iso / fb386 / math / nijiho.bas < prev    next >
BASIC Source File  |  1994-06-01  |  801b  |  30 lines
  1. 10 CLS
  2. 20 PRINT "二次方程式の計算                                       解答時にＰＦ１でメニュー"
  3. 30 PRINT "aX2+bX+c=0"
  4. 40 INPUT "a=",A
  5. 50 INPUT "b=",B
  6. 60 INPUT "c=",C
  7. 70 PRINT A"X2+"B"X+"C"=0" : GOTO 210
  8. 80 '
  9. 90 D=B*B-4*A*C
  10. 100 IF D=0 THEN 170
  11. 110 IF D<0 THEN 190
  12. 120 X1=(-B+SQR(D))/(2*A)
  13. 130 X2=(-B-SQR(D))/(2*A)
  14. 140 PRINT "X="X1","X2
  15. 150 A$=INKEY$:IF A$="" THEN 150
  16. 160 IF A$="1" THEN RUN "MENU.BAS" ELSE 10
  17. 170 X1=-B/(2*A)
  18. 180 PRINT "X="X1     : GOTO 150
  19. 190 PRINT "解は無し" : GOTO 150
  20. 200 '
  21. 210 Z1=-B:Z2=B*B-4*A*C:Z3=2*A
  22. 220 PRINT ""
  23. 230 PRINT "X="Z1"+-  "Z2
  24. 240 PRINT "      "Z3
  25. 250 LINE (20,150)-(100,150),PSET,7
  26. 260 LINE (62,141)-(65 ,141),PSET,7
  27. 270 LINE (65,141)-(70 ,148),PSET,7
  28. 280 LINE (70,148)-(75 ,132),PSET,7
  29. 290 LINE (75,132)-(100,132),PSET,7 : GOTO 90 
  30.